program ejeread;
{$mode TP}{$X-}

uses
  SysUtils;

var
  a,b,c,d: integer;

begin
  write('Ingrese valores numericos:');
  read(a);
  read(b);
  read(c);
 // readln;
  d := a + b + c;
  writeln('El valor de D es ',d);
  readln;

end.
